﻿Imports System.Data.OleDb

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ConexionConBD As OleDbConnection
        Dim Orden As OleDbCommand
        Dim Registros As Integer

        Dim strConexión As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\tfnos.mdb"
        ConexionConBD = New OleDbConnection(strConexión)
        ConexionConBD.Open()

        'Crear una consulta
        Dim Consulta As String = "INSERT INTO TELEFONOS (NOMBRE, TELEFONO) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "');"
        Orden = New OleDbCommand(Consulta, ConexionConBD)

        'ExecuteReader hace la consulta y devuelve un OleDbDataReader
        Registros = Orden.ExecuteNonQuery()
        MsgBox(" Se han insertado " & Registros & " filas")
        ConexionConBD.Close()
    End Sub
End Class